﻿Imports System.Reflection
Imports SilverMemory.Engine

Partial Public Class App
  Inherits Application

  Public Sub New()
    InitializeComponent()
  End Sub

  Private Sub Application_Startup(ByVal o As Object, ByVal e As StartupEventArgs) Handles Me.Startup
    'instantiate a card factory
    Dim cardFactory As ICardsFactory = createCardFactory(e.InitParams("cardFactory"))

    'initialize the game
    Dim game As New Engine.Game(cardFactory)

    'let card factory do additional configuration
    'this should be done after the cardfactory has been passed to the game
    'because the game adds an event handler to the finished event of the factory.
    cardFactory.Configure(e.InitParams)

    'initialize the game. Board now gets control: it should create the players
    'by presenting a choice to the users
    Me.RootVisual = New Board(game)
  End Sub

  ''' <summary>
  ''' create card factory 
  ''' </summary>
  Private Function createCardFactory(ByVal className As String) As ICardsFactory
    Dim cardFactoryType = Assembly.GetExecutingAssembly().GetType(className, True)
    Return CType(cardFactoryType.GetConstructor(System.Type.EmptyTypes).Invoke(Nothing), ICardsFactory)
  End Function

  Private Sub Application_Exit(ByVal o As Object, ByVal e As EventArgs) Handles Me.Exit

  End Sub

  Private Sub Application_UnhandledException(ByVal sender As Object, ByVal e As ApplicationUnhandledExceptionEventArgs) Handles Me.UnhandledException

    ' If the app is running outside of the debugger then report the exception using
    ' the browser's exception mechanism. On IE this will display it a yellow alert 
    ' icon in the status bar and Firefox will display a script error.
    If Not System.Diagnostics.Debugger.IsAttached Then

      ' NOTE: This will allow the application to continue running after an exception has been thrown
      ' but not handled. 
      ' For production applications this error handling should be replaced with something that will 
      ' report the error to the website and stop the application.
      e.Handled = True

      Try
        Dim errorMsg As String = e.ExceptionObject.Message + e.ExceptionObject.StackTrace
        errorMsg = errorMsg.Replace(""""c, "\"c).Replace("\r\n", "\n")

        System.Windows.Browser.HtmlPage.Window.Eval("throw New Error(""Unhandled Error in Silverlight 2 Application " + errorMsg + """);")
      Catch

      End Try
    End If
  End Sub

End Class
